home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS075.dsk / AUTHORSHIP.int < prev    next >
Text File  |  2012-02-16  |  1KB  |  30 lines
  1. 1 HIMEM:16383
  2. 2 CALL -936:VTAB 3:TAB 15:PRINT "AUTHORSHIP":PRINT :PRINT "THIS PROGRAM RENUMBERS THE CREDIT LINES GREATER THAN 32767.":PRINT 
  3. 3 PRINT "RETYPE THE FOLLOWING LINES INSERTING    YOUR OWN CREDIT.":PRINT :LIST 7232,7241:PRINT :PRINT " RUN  (RERUN THIS PROGRAM)"
  4. 4 DIM HEX$(255)
  5. 5 HEX$="300:A5 4D 85 02 A5 4C 85 01 A5 CB 85 4D A5 CA 85 4C 60 A5 02 85 4D A5 01 85 4C 60 N E88AG"
  6. 6 FOR I=1 TO  LEN(HEX$): POKE 511+I, ASC(HEX$(I)):NEXT I: POKE 72,0:CALL -144
  7. 7 PRINT " THEN LOAD YOUR PROGRAM AND CALL 785     TO APPEND AUTHORSHIP":VTAB 9
  8. 8 DEL 1, 8:END 
  9. 9 CALL -936
  10. 10 PP= PEEK (203)*256+ PEEK (202)+380:REM BEGIN ADDR -LINE 9000
  11. 11 EOP= PEEK (77)*256+ PEEK (76):REM  END ADDR OF LINE 9009 
  12. 12 LINUM=128:REM LINE # INCREM'T
  13. 13 LL= PEEK (PP):REM LINE LENGTH
  14. 14 EOL=PP-1+LL:REM  END OF LINE ADDR
  15. 15 IF  PEEK (EOL)#1 THEN INPUT "ERR STOP PROGRAM WITH CTRL C",A
  16. 16  POKE (PP+2),( PEEK (PP+2)+LINUM):REM CHANGE LINE #
  17. 17 IF EOL>=16382 THEN 20:REM CHECK IF FINISHED
  18. 18 PP=EOL+1:GOTO 13:REM NX LINE
  19. 20 DEL 9, 20::CALL 768:END 
  20. 7232 REM **************************
  21. 7233 REM *                        *
  22. 7234 REM *       AUTHORSHIP       *
  23. 7235 REM *           BY           *
  24. 7236 REM *     MICHAEL BRYAN      *
  25. 7237 REM *    202 MCELROY DR.     *
  26. 7238 REM *    KANATA, ONTARIO     *
  27. 7239 REM *    CANADA  K2L 1Y1     *
  28. 7240 REM *                        *
  29. 7241 REM **************************
  30.